home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / terms / btpv1.lzh / ascii bumb-term (.txt) next >
Encoding:
Commodore BASIC  |  1992-07-16  |  590 b   |  26 lines
  1. 10 REM --DUMP TERM--
  2. 30 OPEN 5,2,3,CHR$(6)+CHR$(0)
  3. 40 DIM F%(255),T%(255)
  4. 50 FOR J=32 TO 64:T%(J)=J:NEXT
  5. 60 T%(13)=13:T%(20)=8:RV=18:CT=0
  6. 70 FOR J=65 TO 90:K=J+32:T%(J)=K:NEXT
  7. 80 FOR J=91 TO 95:T%(J)=J:NEXT
  8. 90 FOR J=193 TO 218:K=J-128:T%(J)=K:NEXT
  9. 100 T%(146)=16:T%(133)=16
  10. 110 T%(137)=3:T%(134)=17:T%(138)=19
  11. 120 FOR J=0 TO 255
  12. 130 K=T%(J)
  13. 140 IF K<>0 THEN F%(K)=J:F%(K+128)=J
  14. 150 NEXT
  15. 160 PRINT" "CHR$(147)
  16. 170 GET#5,A$
  17. 180 IF A$="" OR ST <> 0  THEN 220
  18. 190 PRINT" "CHR$(157);CHR$(F%(ASC(A$)));
  19. 200 IF F%(ASC(A$))=34 THEN POKE 212,0
  20. 210 GOTO 170
  21. 220 PRINT CHR$(RV)" "CHR$(157);CHR$(146);:GET A$
  22. 230 IF A$<>"" THEN PRINT#5,CHR$(T%(ASC(A$)));
  23. 240 CT=CT+1
  24. 250 IF CT=8 THEN CT=0:RV=164-RV
  25. 260 GOTO170
  26.